﻿Imports System.Web

Public Class MysRequest
    '''功能：获取地址栏传递参数
    '''参数：a_strParam   地址栏参数
    '''返回值：经过保护后的地址栏参数
    '''创建人：王涛
    '''创建日期：2009-12-01
    '''修改人：
    '''修改日期：
    Public Shared Function QueryString(ByVal a_strParam As String) As String
        Dim strParam As String = String.Empty
        strParam = HttpContext.Current.Request.QueryString(a_strParam)
        If String.IsNullOrEmpty(strParam) = False Then
            strParam = strParam.Replace("'", "''")
        End If
        Return strParam
    End Function
End Class
